/thb /psb load def /the /pse load def /psb {} store /pse {} store currentpoint /THY exch def /THX exch def